Ian & Stuart's Australian Mac 1993 September/September 93.iso/Archives/Games/Board/Mosaic, 1.A.0/Sample, 2 players, basic 2

Text File | 1992-06-02 | 2KB | 16 lines

'tiles$game_state'(definitions, [c(t01, [a, a, a, a]), c(t02, [b, a, a, a]), c(t03, [b, b, a, a]), c(t04, [b, a, b, a]), c(t05, [a, a, a, a]), c(t06, [b, a, a, a]), c(t07, [b, b, a, a]), c(t08, [b, a, b, a]), c(t09, [b, b, b, b]), c(t10, [a, b, b, b]), c(t11, [a, a, b, b]), c(t12, [a, b, a, b]), c(t13, [b, b, b, b]), c(t14, [a, b, b, b]), c(t15, [a, a, b, b]), c(t16, [a, b, a, b])]).
'tiles$game_state'(board, [t(49-48, t16-0), t(49-47, t08-1), t(50-47, t15-0), t(50-46, t07-0), t(51-46, t14-2), t(51-45, t06-3), t(52-45, t12-0), t(52-46, t04-1), t(53-46, t11-0), t(53-47, t03-0), t(54-47, t13-0), t(54-49, t02-2), t(54-48, t09-0), t(52-49, t05-0), t(53-48, t10-0), t(53-49, t01-0)]).
'tiles$game_state'(holes, []).
'tiles$game_state'(off_board_tiles, []).
'tiles$game_state'(hands, [2+[], 1+[]]).
'tiles$game_state'(player, 1).
'tiles$game_state'(edge_player, 1).
'tiles$game_state'(number_of_players, 2).
'tiles$game_state'(activity, select_edge).
'tiles$game_state'(associated_active_sites, []).
'tiles$game_state'(protected_edge_positions, []).
'tiles$game_state'(progress, progress(nolead, [e(a, 32, [16-[t10, t05, t01, t02], 4-[x(t08, 0), t16], 4-[x(t04, 2), t12], 4-[t06, t14], 4-[t03, t11]]), e(b, 58, [4-[x(t12, 3), t06], 25-[x(t04, 3), t14, t07, t15, t08], 4-[t11, t04], 25-[t02, t09, t10, t13, t03]])])).
'tiles$game_state'(pending_replacements, []).
'tiles$game_state'(active_sites, [active(a0, [a, a, _1, _2], 49-46), active(a1, [_3, b, _4, _5], 48-47), active(a2, [_6, b, _7, _8], 48-48), active(a3, [_9, _10, a, b], 50-48), active(a4, [a, a, _11, _12], 50-45), active(a5, [a, _13, _14, _15], 51-44), active(a6, [b, _16, _17, b], 53-45), active(a7, [a, _18, _19, _20], 52-44), active(a8, [b, _21, _22, a], 54-46), active(a9, [_23, _24, _25, b], 55-47), active(a10, [_26, _27, _28, b], 55-48), active(a11, [_29, _30, a, _31], 53-50), active(a12, [_32, _33, a, _34], 54-50), active(a13, [_35, _36, _37, a], 55-49), active(a14, [_38, _39, a, _40], 52-50)]).
'tiles$version'(6).